home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaf.d64 / read_hs (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  37 lines
  1. 1 REM  READ/HS  (LEXIKOS)   6/07/86
  2. 2 :
  3. 3 :OPEN15,8,15:POKE53280,0:POKE53281,0:POKE646,15:POKE808,237:GOTO29:
  4. 4 OPEN9,8,9,"0:"+F$+",S,R":GOSUB10:IFE>0THENE=0:RUN
  5. 5 INPUT#9,S$,N$:CLOSE9:RETURN:POKE53280,12:POKE53281,11:POKE646,15:PRINT"[147] LAST 20 LEXIKOS PLAYERS                ":FORI=1TO20:IFI<10THENPRINTI"  "N$(I)
  6. 6 IFI>9THENPRINTI" "N$(I)
  7. 7 NEXT:PRINTTAB(6)"<PRESS RETURN TO LOAD MENU>
  8. 8 [161]Z$:[139]Z$[179][177][199](13)[167]8
  9. 9 [137]14
  10. 10 E[178]0:[132]15,E,E$,JU,JU:[139]E[178]0[176]E[178]1[167]13
  11. 11 [153]"LOAD"E$:[160]9:[152]15,"I0":TX[178]TI
  12. 12 [139]TI[179]TX[170]240[167]12
  13. 13 [142]
  14. 14 [151]53280,0:[151]53281,0:[151]646,15:[151]S,0:[151]S[170]1,0:[153]"LOAD"[163]18)"WAITSTOP":[153]"STOPLOAD";[199](34);"MENU";[199](34);",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  15. 15 [153][199](166);:[153]"CMD";
  16. 16 [161]A$:[139]A$[178]""[167]16
  17. 17 [139][198](A$)[178]29[176][198](A$)[178]17[176][198](A$)[178]145[176][198](A$)[178]157[167]16
  18. 18 [139][198](A$)[178]147[176][198](A$)[178]148[176][198](A$)[178]19[176][198](A$)[178]20[167]16
  19. 19 [139]A$[178]"_"[167]25
  20. 20 [139]A$[178][199](13)[167]22
  21. 21 T$[178]T$[170]A$:[153]A$;:A$[178]"":[137]15
  22. 22 [139][195](T$)[177]25[167]T$[178][200](T$,25)
  23. 23 [139]T$[178]"Q"[167]14
  24. 24 [153]" ":[142]
  25. 25 [139][195](T$)[179]1[167]16
  26. 26 [153]"CMD  CMDCMD";:[153][199](166);:[153]"CMD";:L[178][195](T$):[139]L[179]1[167]T$[178]"":[137]28
  27. 27 T$[178][200](T$,L[171]1)
  28. 28 [137]16
  29. 29 TL$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":BL$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  30. 30 PRINT"[147]        [213]"TL$"[201]":PRINT" [213][192][192][192][192][192][192][194] LEXIKOS:  HIGH SCORE [194][192][192][192][192][192][192][201]":PRINT" [194] V1.1 [202]"TL$"[203] 1986 [194]":FORI=1TO21:PRINT" [194]"SPC(36)"[194]":NEXT:PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":PRINTTAB(3)"EACH LEXIKOS WORD FILE HAS ITS OWN":PRINTTAB(3)"CHAMPION.  ENTER THE FILE NAME TO
  31. 31 [153][163]3)"TO READ THE CHAMP'S NAME AND SCORE.":[153]""[163]11)"ENTER (Q) TO QUITONONONONONONONONONONONONONON":[153]"WHAT FILE? --> TOCMD";:[141]15:F$[178]"#"[170]T$:[153][163]16)"TOTOTOTOTOTO":[153][163]16)" WAIT ":[141]4:[153][163]16)"ONON       ":[153][163]16)"      ":[153]"CHAMPION IS -->  "N$
  32. 32 [153]"HI SCORE IS -->  "S$:[153]"------------------------------------":[153]"(M) CALL MENU   (RETURN) NEXT FILE
  33. 33 GETZ$:IFZ$=""THEN33
  34. 34 IFZ$=CHR$(13)THEN30
  35. 35 IFZ$="M"THEN14
  36. 36 GOTO33
  37.